home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / Programming / ViewIt 2.24 / Pascal Demo Projects / Metrowerks Pascal 1.0d7 Demos / FaceStorMP.p < prev    next >
Encoding:
Text File  |  1994-03-02  |  5.9 KB  |  284 lines  |  [TEXT/MWPS]
  1. {FaceWare 2.23 Commands & Global Record}
  2. {©FaceWare 1989-94.  All Rights Reserved.}
  3.  
  4. {Compiler Bug?  "signedByte" and "style" types consume 2 bytes,}
  5. {so needed to replace with "boolean" type throughout fRec record}
  6.  
  7. unit FaceStorMP;
  8.  
  9. interface
  10.  
  11.     uses
  12.         QuickDraw, Menus, Events, Files, Controls;
  13.  
  14.     const
  15.         DoInit = -61;
  16.         DoPrep = -62;
  17. {FaceIt commands}
  18.         DoLoop = 0;
  19.         DoEvnt = -51;
  20.         DoMenu = -52;
  21.         GetMsg = -55;
  22. {ViewIt commands}
  23.         DoUpdt2 = -53;
  24.         DoUpdt = -53;
  25.         DoUnld = -63;
  26.         ChgCur = 121;
  27.         PstEvt = 122;
  28.         PopMen = 123;
  29.         PstNot = 124;
  30.         SetIdl = 131;
  31.         EndIdl = 132;
  32.         ShoAlt = 153;
  33.         StpAlt = 154;
  34.         NotAlt = 155;
  35.         CtnAlt = 156;
  36.         SetItm1 = 160;
  37.         SetItm2 = 161;
  38.         SetItm = 161;
  39.         GetItm = 162;
  40.         FixFSC = 163;
  41.         SelFSC = 164;
  42.         ChkMem = 171;
  43.         NewBlk = 172;
  44.         PrgCmd = 173;
  45.         GetFgC = 178;
  46.         GetBkC = 179;
  47.         SetFgC = 180;
  48.         SetBkC = 181;
  49.         SetFSS = 183;
  50.         SetPal2 = 185;
  51.         SetPal = 185;
  52.         StdOpn = 201;
  53.         StdSav = 202;
  54.         GetRef = 205;
  55.         SetRef = 206;
  56.         SetTyp = 208;
  57.         SndBhd = 250;
  58.         GetNam = 251;
  59.         SetNam = 252;
  60.         MovRec = 254;
  61.         MovAlt = 255;
  62.         MovDlg = 256;
  63.         MovWin = 257;
  64.         DrgWnd = 259;
  65.         ShoStr = 261;
  66.         StpStr = 262;
  67.         NotStr = 263;
  68.         CtnStr = 264;
  69.         GetStd = 301;
  70.         SetStd = 302;
  71.         SavDlg = 356;
  72.         SavWin = 357;
  73.         SetSub = 451;
  74.         TrmStr = 452;
  75.         SetPrm = 453;
  76.         CnvStr = 454;
  77.         FndTxt = 455;
  78.         NumToS = 471;
  79.         SToNum = 481;
  80.         GetStr = 491;
  81.         SetStr = 492;
  82.         SrtLst = 493;
  83.         DupLst = 494;
  84.         AddVew = -1200;
  85.         NewWnd = -1201;
  86.         EndWnd = -1202;
  87.         MdlWnd = -1203;
  88.         SizWnd = -1204;
  89.         MovWnd = -1205;
  90.         ShoWnd = -1206;
  91.         HidWnd = -1207;
  92.         GetWVC = -1208;
  93.         GetWnd = -1209;
  94.         LnkCtl = -1210;
  95.         GetCtl = -1211;
  96.         ShoCtl = -1212;
  97.         GetVal = -1213;
  98.         SetVal = -1214;
  99.         OvrCtl = -1215;
  100.         AddCtl = -1216;
  101.         DrwCtl = -1217;
  102.         ScrCtl = -1218;
  103.         ActCtl = -1219;
  104.         SelCtl = -1220;
  105.         DspCtl = -1221;
  106.         StlCtl = -1222;
  107.         SavCtl = -1223;
  108.         SavWnd = -1224;
  109.         SizCtl = -1225;
  110.         MovCtl = -1226;
  111.         ClrCtl = -1227;
  112.         SetVCod = -1228;
  113.         SetInfo = -1228;
  114.         HlpWnd = -1229;
  115.         HitCtl = -1230;
  116.  
  117.     type
  118. {Global ViewIt record}
  119.         FacePtr = ^FaceRec;
  120.         FaceRec = record
  121. {program-wide info}
  122.                 fHead: array[1..8] of integer;
  123.                 fOffPort: GrafPtr;
  124.                 fCOffPort: GrafPtr;
  125.                 fActiveWnd: WindowPtr;
  126.                 fActiveRec: longint;
  127.                 fActiveID: integer;
  128.                 fActiveResID: integer;
  129.                 fMsgCount: integer;
  130.                 fFlags: longint;
  131.                 fStuff: Ptr;
  132.                 fHeapBuff: longint;
  133.                 fEnvFlags: longint;
  134.                 fSleep: longint;
  135.                 fScreenRect: Rect;
  136.                 fDragRect: Rect;
  137.                 fFrontSleep: longint;
  138.                 fBackSleep: longint;
  139.                 fFiller1: integer;
  140.                 fStdBlock: Handle;
  141.                 fStdCount: integer;
  142.                 fSysEnvArr: array[1..8] of integer;
  143.                 fApplVRef: integer;
  144.                 fCreator: OSType;
  145.                 fRefCon: longint;
  146.                 fFiller2: array[1..7] of integer;
  147.                 fCursor: integer;
  148.                 fFontMenu: MenuHandle;
  149.                 fSizeMenu: MenuHandle;
  150.                 fStyleMenu: MenuHandle;
  151.                 fColorMenu: MenuHandle;
  152.                 fFiller3: boolean;
  153.                 fI1Err: boolean;
  154.                 fI2Err: integer;
  155.                 fI4Err: longint;
  156.                 fI8Err: array[1..4] of integer;
  157.                 fR4Err: real;
  158.                 fR8Err: array[1..4] of integer;
  159.                 fR10Err: array[1..5] of integer;
  160.                 fR12Err: array[1..6] of integer;
  161.                 fFiller4: array[1..105] of integer;
  162.                 fDrvr7400: ProcPtr;
  163.                 fMBarHt: boolean;
  164.                 fDecPtCh: boolean;
  165.                 fSysFNum: integer;
  166.                 fSysFName: string[31];
  167.                 fWDEF: longint;
  168.                 fGlueData: longint;
  169.                 fWaitNextEvent: longint;
  170.                 fGetNewWindow: longint;
  171.                 fGetNewCWindow: longint;
  172.                 fDisposeWindow: longint;
  173.                 fFiller5: array[1..4] of longint;
  174.                 fActiveWindow: longint;
  175.                 fSelectWindow: longint;
  176.                 fUpdateOther: longint;
  177.                 fFiller6: array[1..9] of longint;
  178.                 fEvent: EventRecord;
  179.                 fFiller7: array[1..190] of integer;
  180. {utility scratch variables}
  181.                 uFSSpec: FSSpec;
  182.                 uHead: array[1..8] of integer;
  183.                 uI2: integer;
  184.                 uI4: longint;
  185.                 uR4: real;
  186.                 uR8: array[1..4] of integer;
  187.                 uR10: array[1..5] of integer;
  188.                 uR12: array[1..6] of integer;
  189.                 uPt: Point;
  190.                 uRect: Rect;
  191.                 uCommand: longint;
  192.                 uParam: array[1..4] of longint;
  193.                 uResult: longint;
  194.                 uMenuID: longint;
  195.                 uMenuItem: longint;
  196.                 uString: Str255;
  197.                 uName: Str255;
  198.                 uRGB: RGBColor;
  199.                 uStyle: boolean;
  200.                 uI1: boolean;
  201.                 uI8: array[1..4] of integer;
  202.                 uMenuHdl: MenuHandle;
  203. {window-related info}
  204.                 vHead: array[1..8] of integer;
  205.                 vErr: integer;
  206.                 vCDEF: ProcPtr;
  207.                 vSelectCtl: ControlHandle;
  208.                 vSelectRec: longint;
  209.                 vSelectID: integer;
  210. {info returned by enabled items}
  211.                 wiHit: integer;
  212.                 wvHit: integer;
  213.                 wcHit: integer;
  214.                 wClick: integer;
  215.                 wEvent: EventRecord;
  216. {window info returned by GetWnd}
  217.                 wWindow: WindowPtr;
  218.                 wResID: integer;
  219.                 wCount: integer;
  220.                 wvCount: integer;
  221.                 wiCount: integer;
  222. {control info returned by GetCtl}
  223.                 cControl: ControlHandle;
  224.                 ciIndex: integer;
  225.                 cvIndex: integer;
  226.                 ccIndex: integer;
  227.                 cBaseID: integer;
  228. {info copied from "cControl" block...}
  229.                 cNext: ControlHandle;
  230.                 cOwner: WindowPtr;
  231.                 cRect: Rect;
  232.                 cVis: boolean;
  233.                 cHilite: boolean;
  234.                 cValue: integer;
  235.                 cMin: integer;
  236.                 cMax: integer;
  237.                 cInfo: Handle;
  238.                 cLoData: Handle;
  239.                 cAction: ProcPtr;
  240.                 cRefCon: longint;
  241.                 cTitle: Str255;
  242. {info copied from "cInfo" block...}
  243.                 cStuff: array[1..6] of integer;
  244.                 cTmplRefCon: longint;
  245.                 cPtr: Ptr;
  246.                 cHiData: Handle;
  247.                 cView: ControlHandle;
  248.                 cOldRect: Rect;
  249.                 cClip: Rect;
  250.                 cContent: Rect;
  251.                 cLimit: Rect;
  252.                 cType: longint;
  253.                 cVarCode: integer;
  254.                 cResType: ResType;
  255.                 cResID: integer;
  256.                 cResHdl: Handle;
  257.                 cPrivate: longint;
  258.                 cScrInc: boolean;
  259.                 cCmdKey: boolean;
  260.                 cPnRound: integer;
  261.                 cPnSize: Point;
  262.                 cTxJust: boolean;
  263.                 cTxFace: boolean;
  264.                 cTxSize: integer;
  265.                 cTxFont: integer;
  266.                 cDataType: integer;
  267.                 cDataDigits: boolean;
  268.                 cDataFormat: boolean;
  269.                 cDataOffset: integer;
  270.                 cDataPtr: Ptr;
  271.                 cStorType: integer;
  272.                 cStorPtr: longint;
  273.                 cColors: CCTabHandle;
  274.                 cOverride: ProcPtr;
  275.                 cCount: integer;
  276.                 cString: Str255;
  277. {private debugging table}
  278.                 xEntries: integer;
  279.                 xTable: array[1..40] of longint;
  280.             end;
  281.  
  282. implementation
  283.  
  284. end.